home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / HENSA / MATHS / PLPLOT / PLPLOT.ZIP / examples / f77 / x05f.f < prev    next >
Encoding:
Text File  |  1994-05-27  |  758 b   |  31 lines
  1. ! $Id: x05f.f,v 1.2 1994/05/26 19:34:18 mjl Exp $
  2. ! $Log: x05f.f,v $
  3. ! Revision 1.2  1994/05/26  19:34:18  mjl
  4. ! Inserted missing CVS Id and Log fields for all Fortran demos.  Comment
  5. ! character changed to "!" everywhere, to work well with font-lock in Lucid
  6. ! emacs (requires a small change to fortran-mode.el).
  7. !
  8. !
  9.       program example05
  10. !     =================
  11. !
  12. ! Test of drawing a histogram
  13.  
  14.       real data(2048)
  15.  
  16. ! Fill up data points
  17.  
  18.       do 1 i=1,2048
  19.         data(i)=sin(0.01*real(i))
  20.     1 continue
  21.  
  22.       call plinit()
  23.       call plcol(1)
  24.       call plhist(2048,data,-1.1,1.1,44,0)
  25.       call plcol(2)
  26.       call pllab('#frValue','#frFrequency',
  27.      *  '#frPLPLOT Example 5 - Probability function of Oscillator')
  28.  
  29.       call plend
  30.       end
  31.